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AAAAAAAAAAAAAAA 
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AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


RRRRRRRR 
RRRRRRRR 
RR 

RR 

RR 

RR 
RRRRRRRR 
RRRRRRRR 
RR RR 
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AAAAAA 
AAAAAA 
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AA AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA AA 
AA Aa 
BA aa 
AA AA 
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PASSREAD_REAL_H Read an H_floating value 16-Sep-1984 03:01:38 AX-11 Bliss-32 V4.0-74 Page 1 
14-Sep-1984 12:51: PASRTL. SRC JPASREAREH.B32; 1 (1) 


; 1 001 MODULE PASSREAD_REAL_H ( STATE "Read an Wf loat ing value’ 

3 ¢ ote {DENT = '1-00 ! File: PASREAREH.B32 Edit: SBL1002 

Ps = 

; 4 004 BEGIN 

3 5 005 1! 

4 § B98 : See RRA AA EAA AAEEAAAE AERA AAA AAAAEAEEEREREEAEEEEEEEES 

‘ '@ = 

3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

3 19 Ber : ‘* ALL RIGHTS RESERVED. * 

3 ‘® a 

; \§ Org 1 !® re SOFTWARE IS enn sueo UNDER A LICENSE AND MAY BE USED AND og te * 

io 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

ee | 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

) 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 16 B98 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; i id FA : :* TRANSFERRED. * 

s '@ * | 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
H $1 8083 : - CORPORATION. * 

: : * 

; $8 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3; 0025 1 !* * 

; 26 0026 1 !* ~ 

: a7 0027 1 eee eee e ee eee E REAR AAA AAA A ERATE AAA REAR AEAAA RRA 

; 2 0028 1! 
; $3 45 34 1 

; 0 0050 1 I++ 

ey 0031 1 ! FACILITY: Pascal Language Support 

; 3¢ 0032 1 / 
; 3 003 1 ' ABSTRACT: 

; «34 0034 1! 
; 0035 1} This module contains procedures which read an H_floating value 
3 3 0036 : from a textfile or a string. 
; $ boas : ENVIRONMENT: User mode - AST reentrant | 
: re Boao ; AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 
: 42 004 1 ' MODIFIED BY: 

; 65 0043 1! 

: «646 044 1! 1-001 - Original. SBL 1-April-1981 

3 45 045 1! 1-002 - Use PASSSEND_READ. SBL 26-May-1982 
; 646 0046 1 i- 
; 647 0047 1 
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PASSREAD_REAL_H Read an H_floating value 18-5e 1984 02:01: AX-11 Bliss-32 V4.0-74 
1-002 Declarations ° 12-8 08=138e 95:91:88 PASRTL.SRCIPASREAREH.B 2;1 
: $3 9 ! RSBTTL ‘Declarations’ 
3 24 050 1 ! PROLOGUE DEFINITIONS: 
a, $89 
: ze 038 ! REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
; BY 1! 
c. Sy 119 1 =! TABLE OF CONTENTS: 
5 # 0120 1! 
; 0121 #1 
3 60 3 ¢ 1 FORWARD ROUTINE 
$ 61 1 1 PASSREAD_REAL_H: NOVALUE ! Read from textfile 
: 62 01 4 PASSREADV_REAL_H: NOVALUE; i Read from string 
>; 664 0136 1! 
ci; 0127 1 ! MACROS: 
; & 0128 1! 
3; 67 31¢2 1! NONE 
; 0130 1! 
; 69 0131 1 ! EQUATED SYMBOLS: 
; B86 1! 
: 71 0133 1! NONE 
H 72 bie 1! 
: 73 0135 1! FIELDS: 
: 74 B36 1! 
: 75 0137 1! NONE 
s 6 0138 1! 
4 77 0139 1 ! OWN STORAGE: 
3 78 0140 1! 
: 79 0141 1°! NONE 
; 80 0142 1! 
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PASSREAD_REAL_H Read an H_ floating value 16-Sep-1984 02:01: AX-11 Bliss-32 V4.0-74 P PA 
1008 PASSREAD_REAL_H oSpead an H_ floating value from 12286871382 95:91:85 PASRTL. SRC JPASREAREH.B 2:1 tn (33 " 


1 ZSBTTL "PASSREAD_REAL_H = Read an H_floating value from textfile’ : 
GLOBAL ROUTINE PASSREAD_REAL_H ( 


Co 
wr 
oO 
= 
= 
Ww 


em ee me ee a a ed ad ts od od od dd od wt od = 8 = 8 8 8 8 = = = oe 3 2 tt 


RESULT: yy VECTOR %, LONG) ! H_ floating result by reference 
85 PFV: REF SPASSPFV_FILE_VARIABLE, i File variable 
8 R ! Error unwind address . 
8 ) : NOVALUE = 
88 
89 l+¢ 
4 ' FUNCTIONAL DESCRIPTION: 
9 This function reads an H_floating value from the specified textfile 
o and returns it as its function value. Because the value is Larger 
94 than 64 bits, it is returned to the first argument passed by reference, 
95 with all other arguments shifted right by one. 


i CALLING SEQUENCE: 
CALL PASSREAD_REAL_H (RESULT.wh.r, PFV.mr.r C, ERROR.ja.rJ) 
i FORMAL PARAMETERS: 


RESULT - The address of the H_floating result. | 
PFV - The Pascal File Variable (PFV) passed by reference. 

The structure of the PFV is defined in PASPFV.REQ. 
ERROR - Optional. If specified, the address to unwind to 


in case of an error. 


NONE 
i IMPLICIT OUTPUTS: 
NONE | 
i ROUTINE VALUE: | 
The H_floating value of the number read, returned by reference. 
i SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
i SIGNALLED ERRORS: 


INVSYNREA = invalid syntax for real value 


i] 
! 
' 
' 
! 
i] 
1 
' 
' 
4 
! 
1 
i] 
1 
! 
' 
' 
' 
' 
' 
! 
i IMPLICIT INPUTS: 
i 
i] 
| 
' 
1 
' 
4 
i) 
] 
' 
4 
1 
! 
' 
4 
1 
' 
NOTVALTYP = “‘string’’ is not a value of of type ‘type’ 
' 


WOO WOO O09 0000 09 09 09 09 09 09 SI SIN SIN SN SIA AAA AAA AAA MINNIE 


BEGIN 


LOCAL 
DESCR: BLOCK (8, BYTE) ! Descriptor for convert 
FCB: REF $PASS$FCB_CONTROL_BLOCK,! File Control block 


Be Be Se Be Se Be Be Se Se Be Se Be Ge Be Be Be Se FHS Be Ge Be Ge Be Se Se Ge Ss Os Se SH Se Se FE He SH Se Se Se SH Se Se Os Se Se Se SHO HH Os os Os Oe BH Se es 
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PASSREAD_REAL_H Read an H_ floating value 1-5 1984 02:01: AX=-11 Bliss-32 V4.0-74 Pa 4 
1 PASSREAD_ REAL_H oS Read an H_floating value from 12-86-1382 95:01:88 PASRTL. RCIPASREAREH.B 2;1 ” (3) 
; 9 PFV_ADDR: VOLATILE, ! Enable argument 
: 0 8 UNWIND_ACT: VOLATILE, ' Enable argument 

1 ERROR_ADDR: VOLATILE; ! Enable argument 

: 0 BUILTIN | 

3 8 ACTUALCOUNT; ! Count of arguments 

6 0 ENABLE 

f 9 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 

9 '¢ 

° } Get ERROR parameter, if present. 

5 if ACTUALCOUNT () GEQU 3 

2 ERROR_ADDR = .ERROR; ! Set unwind address 

4 PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 

9 + 


Validate PFV and get PFV. 


wn 


| 
| 
| 
PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); | 
'4 

| 

| 


; Set unwind action to unlock file. 


oO 
AMEAN OO ONAULS WN $0 OONAULS AR $0 DONOULSWNO 


BBE AWWA ANAA AGI PONPINIPINIPININUD) 2 2 OO OO 


7 

5 UNWIND_ACT = PAS$SK_UNWIND_UNLOCK; 

2 bo common initialization. 

3 PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBI; FCB); 
set up string descriptor for convert call. 

0 

; SER EDScsecpryred = DSceKcoTvee=t: 


: 


2 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
; 
5 
5 
5 
5 
5 
5 
60 
6 
6 
6 
64 
65 
66 
6 
6 
6 
7 
? 
7 
? 
7 
? 
7 
? 
7 
7 
8 
: 
84 
85 
86 


i Call utility routine to find a string that looks Like an real. 
! If we can't find one, signal an error. 


PIPIPIPIPINOPININPYNININIPYIPIPIPIPYUPINININININIPYPINPININUNINYNPNPY 


IF NOT PASSSGET_REAL (PFV CPFVSR_PFV], FCB ercaee FCB); 
DESCR CDSCSA_POINTER], DESCR CoSC$w_LENGTH . FCB) 


N 
SPASSIO_ERROR (PASS_INVSYNREA,2,DESCR,.FCB CFCBSL_RECORD_NUMBER)) ; 


'¢ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 !' Call convert routine. If it fails, signal an error. 
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1 | 
PASSREAD_REAL_H Read an H floating value 1b-Se 1984 02:01: AX-11 Bliss-32 V4.0-74 P 5 | 
att PASSREAD_REAL_H w Read an H_ floating value from 14-Sep-19 4 95:91:85 PASRTL.SRC JPASREAREH.B52;1 ae (3) | 
: 1 7 le $ 
: 138 34 3 
; 138 22 IF NOT OTSSCVT_T_H (DESCR, RESULT (0)) : 
: 200 P 0261 SPASS$IO_ERROR (PASS _NOTVALTYP,3,DESCR, | : 
: 201 P 6¢ UPLTT BYTE CECHARCOUNT (’ QUADRUPLE ), QUADRUPLE"), ; 
: 0¢ 6 .FCB CFCBSL_RECORD_NUMBER]) ; | : 
; a 64 3 
; $6 6 8 i* d-of-READ i | ; 
Py :. vO endg-oT- rocessing. Ps 
im Bee soe | 
z 08 o 69 PASSSEND_READ (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB)); : 
: 210 0271 RETURN; : 
5 11 0 Le : 
3; été 0275 1 END; ! End of routine PASSREAD_REAL_H : 
TITLE PASS$READ_REAL_H Read an H_floating value : 
“IDENT \1-002\ ; 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 
09 00000 P.AAA: .BYTE 9 ; : 
45 46C 50 55 52 44 41 55 51 00001 "ASCII \QUADRUPLE\ ; | : 
EXTRN PASS$READ_REAL_H : 
“EXTRN PASSREADV REAL _H ; 
‘ N PAS$$I0_HANDLER 3 
“EXTRN PASSSVACIDATE_PFV : 
"EXTRN PASSSINIT READ, PASS$GET_REAL : 
“EXTRN PASSSSIGNAL, PASS$K_INVSYRREA : 
SEXTRN OTSSCVT_T_H. PASSK-NOTVALTYP ; 
-EXTRN PASS$SEND_READ : 
C3FC 00000 .ENTRY PASSREAD_REAL_H, Save R2,R3,R4,R5,R6,R7,R8,-; 0144 3 
59 000000006 00 9€ 00002 MOV PASSSSIGNAL, R9 : : 
SE 10 C2 00009 SUBL : : : 
7E D4 0000C CLRL. ERROR ADDR > 0195 : 
04 AE 7C OO00E CLRO UNWIND ACT : F 
6D 0073 CF DE 00011 MOVAL 4$, (FP) : ; 
03 ¢ 91 O16 CMPB. ss AP), #3 > 0214 : 
4 1 0001 BLSSU_1$ : : 
6E 0c AC DO 00018 MOVL ERROR, ERROR_ADDR : 0216 ; 
56 08 Ac D0 OO1F 1$: MOVL PFV, RE : 0218 ; 
08 AE 56 00 00023 MOVL 6, PFV_ADDR : : 
000000006 00 16 00027 JSB PASSSVACIDATE_PFV > 0224 : 
04 AE 1 D0 0002D MOVL «sof UN ND_ACT > 0230 : 
000000006 0 16 00 1 JSB Pass INIT_READ : 0 3 
OE AE 106 8F B 7 MOVW #270, DESTR+2 > 024 : 
000000006 00 76 000 p JSB PASS$GET_REAL > 0251 ; 
10 AE 4 D 4, MOVL R4, DESCR+4 3 3 
= | 8 BB node ~( oe ee 
C8 7 DD 0004E PUSHL -56(FCB) : 0253 : 
| 
| 


; Routine Size: 171 bytes, Routine Base: _PASSCODE + OO0A 


K 11 
PASSREAD_REAL_H Read an H_ floating value 16-Sep-1984 02:01: AX-11 Bliss-32 V4.0-74 P Pi 
1008 PASSREAD REAL -H -’Read'an H_floating value from 1e-Sep-1984 43,51 :80  FPASRTL SAESPASRU ARCH 682; 1 age 5S 1: 
10 Ag oF 1 PUSHAB DESCR $ 
pe 4 PUSHL : 
3 00G 8F A 6 MOVZBL M#PASS$K_INVSYNREA, -(SP) ; 
6 4 FB QOOdA CALLS” #4, PASSSSIGNAL ; 
04 AC OD er 2$: PUSHL RESULT : 
10 AE 9F 0006 DESCR : 
000000006 99 08 FB 00064 #2, OTSSCVT_T_H : 
1 E 68 LBS ; 
C8 A? DD O06E ~56(F CB) ; 
8 AF 9F PUSHAB P.AAA : 
14 Ag OF fe PUSHAB DESCR H 
8 DD 77 PUSHL # F 
3 00G 8F 9A 00079 MOVZBL M#PASSK_NOTVALTYP, -(SP) ; 
6 05 fe Boab gaye #5, PASSSSIGNAL : 
000000006 00 16 00081 3$: JSB PASSSEND_READ 0269 3 
04 00087 RET 0273 3 
0000 it 4$: «WORD Soye nothing 0195 3 
50 08 AC DO OOO8A MOVL (AP), RO : 
50 04 AQ DO 0008 MOVL 4(RO), RO 3 
EC AO 9F 0009 PUSHAB ERROR_ADDR : 
FO AO 9F 0009 PUSHAB UNWIND_ACT 3 
F4 AO 9F 00098 PUSHAB PFV_ADDR : 
03 0D 00098 PUSHL 4&3 : 
5E 0D 00090 PUSHL ; 
7E 04 AC 7D 0Q009F MOVQ 4(AP), -(SP) : 
000000006 00 03 FB O00A3 CALLS #3, PASS$$IO_HANDLER : 
04 OOOAA RET : 


; 213 0274 
> 214 0275 


1 
1 !<BLF/PAGE> 
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PASSREAD_REAL_H Read an H_floating value 1b-S6 1984 02:01: AX-11 Bliss-32 V4.0-74 
ati PASSREADV_REAL_H : Read an H_floating from stri 1 ~Sep-19 4 93:01:85 PASRTL” RESPASREAREH 6 231 


H 18 8 76 1 ZSBTTL ‘PASSREADV_REAL_H = Read an H_floating from string’ 

; 1 7 1 GLOBAL ROUTINE PASSREABV REAL AH ( 

: 18 Q 8 1 RESULT: REF VECTOR (47 LONG) ! H_ floating result by reference 
> 21 0279 1 LINE DSC: REF VECTOR (, BYTES, i String descriptor 
3 0 0280 1 ERROR ! Error unwind address 
; 1 8 +H : ): NOVALUE = 

; g 8 BS 1 !4¢ 

: ¢ 8 Se ; } FUNCTIONAL DESCRIPTION: 

: 226 0286 1! This function reads an H_floating value from the specified string 

5 $si 0 af 1! and returns it as its function value. Because the value is larger 
; 8 0286 1! than 64 bits, it is returned to the first argument passed by reference, 
: $62 8 4 } with all other arguments shifted right by one. 

3 231 0 91 CALLING SEQUENCE: 

3 338 0998 ; CALL PAS$READV_REAL_H (RESULT.wh.r, LINE_DSC.mq.r C, ERROR. ja.rJ) 

; 935 0295 : FORMAL PARAMETERS: 

; $30 5444 ; RESULT - The address of the H_floating result. 

: 239 0299 1: LINE_DSC - The string to read from, passed as a class S$ 

> 240 0300 1! (assumed) descriptor. The Length and pointer 

: st b301 : are updated to reflect the unread string. 

: seg b308 1 i ERROR - Optional. If specified, the address to unwind to 
: sie Ooe ! in case of an error. 

; 346 0306 IMPLICIT INPUTS: 

: 248 0308 1! NONE 

: 249 0309 1! 

: $20 Bei9 ! IMPLICIT OUTPUTS: 

: 33 0512 1: NONE 

; 25 0313 1! 

; See Bele ' : ROUTINE VALUE: 

4 8 0316 The value of the H_floating read. 

; 38 0318 : SIDE EFFECTS: 

: $20 0320 1! NONE 

3 61 0321 1! 

; $¢ b3 § ' SIGNALLED ERRORS: 

> 264 324 1! NONE 

3: 265 325 1! 

; 266 326 1 f= 

3; 267 03 1 

: 08 0309 BEGIN 

: 270 8 0 LOCAL 

3 ery 0331 PFV: SPASSPFV Ju VARI AME. ' Pascal File Variable 

= - 0332 ARG_LIST: VECTOR (5, LONG), ! Argument List 


| 
ed 


PASSREAD_REAL_H 
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11 
oating value -$ep-1984 02:01: AX-11 Bliss-32 V4.0-74 
AL_H 2 Read an H_floating from stri 730071 38e 93:01:88 PASRTL. SRC IPASREAREH.B a7 
PFV_ADDR: VOLATILE, Enable argument 
UNWIND_ACT: VOLATILE, Enable argument 
ERROR_ADDR: VOLATILE; Enable argument 
BUILTIN 
ACTUALCOUNT; ! Count of arguments 
ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


14 

Get ERROR parameter, if present. 

. hie aaa () GEQU 3 
ERROR_ADDR = .ERROR; 

PFV_ADDR = PFV CPFVSR_PFVI; 


+ 
Set up ARG_LIST. 


ARG_LIST [0] = 2; 
ARG_LIST ct = RESULT (0); 
ARG_LIST (2) = PFV CPFVS$R_PFV); 


! Set unwind address 
! Set PFV address 


! Two arguments 
' Result address 
! PFV address 


t PAS$S$DO_READV to do the work, giving it the address of 


i Cal 
i PASSREAD_REAL_H to call. 


PASSSDO_READV (PFV CPFVSR_PFVJ, LINE_DSC COJ, ARG_LIST, PASSREAD_REAL_H); 


RETURN; 
END; 
; 0076 
5E . ¢€ 
E be 
04 AE 7C 
6D 0035 =F of 
03 6c 9 
04 IF 
6€ Oc AC + 
08 AE 20 =A F 
OC AE 02 OD 
10 AE 4 AC bY 
14 «AE 0 AE 9E 
54 FF26 «6CFO9'E: 
53 C AE 9E 


WINN | —CGOOoocooe 
ODO 9 OLS NVUNVO 


! End of routine PASSREADV_REAL_H 


-EXTRN PAS$S$DO_READV 
sENTRY PASSREADV_REAL_H, Save R2,R3,R4,R6 
SUBL2 #44, SP 


BL 

CLRL ERROR_ADDR 

CLRQ UNWIND ACT 

MOVAL 2$, (FP) 

CMPB_ sé AP), #3 

BLSSU 1S 

MOVL ERROR, ERROR_ADDR 
1$ MOVAB PFV, PFV_ADDR 

MOVL #2, ARG_CIST 

MOVL RESULT, ~ARG_LIST+4 

MOVAB PF + 


V, ARG_LI 
MOVAB PASS$READ“REAL_H, R4 
MOVAB ARG_LIST> R3 


; Routine Size: 102 bytes, Routine Base: _PASSCODE + 00B5 


1 
1 !<BLF/PAGE> 


N 11 
PASSREAD -REAL_H Read an H_floating value 16-Sep 1: AX-11 Bliss-32 V4.0-74 
; 1-002 PASSREADV_REAL_H = ok Read. an H_floating from stri 12286824 38 93: 8} 86 PASRTL.SRC RCMP PASREAREH.B32; 1 
Ar 55 0038 MOV’ CIN ne pst k 
000000006 00 16 00 JSB PASSS$DO_ keRey 
04 0004 RET 
0000 000435 2$: «WORD Save nothing 
50 8 AC 00 0004 OVL B(AP), Re 
50 4 Ad be 0049 OVL 4(RO), R 
DO) 3=— AD 004D PUSHAB ERROR_ADDR 
D4 AQ Bee PUSHAB UNWIND_ACT 
D8 OA $F Bo USHAB PFV_ADBR 
9 B28 PUSHL 4&3 
E 8 Bee PUSHL SP 
7E 04 A 4 5A ova 4(AP), =(SP) 
000000006 00 0 FP oRb ze CALLS #3, PAS$$IO_HANDLER 


Sete Fe Fe Fe Ge Fe Fe Fe Be Fe Be Se Se Be 


] 
12 
~ oe setiag. 2 PASSREADV “READE Read” an H_ floating from stri 1 if “ep 71382 98: aE i PASRTL SRE PASREAREN 8 B32; 1 eet a9 
ne a 1 END | End of module PASSREAD_REAL_H | 
16 0375 0 ELUDOM | 
PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 283 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ss VES Ee. A hi peak Os eS Symbols qoo=-<- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 00:00.9 
=$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 99 23 33 00:00.4 


COMMAND QUALIFIERS 
LSRE/EMECR EY CELD SME TEM. «OPT PALER D PUSTRACE SL SOM, LES HP RINEARE NFER SCR IS 1 PASREARER MSRC$:PASREAREH/UPDATE=(ENHS$ : PASREAREH 


273 code + 10 data bytes 
; 00:07.2 
; pking Time: 00:25.2 
; Lines/CPU Min: 3133 

; Lexemes/CPU-Min: 14147 

: aamery Used: 83 pages 

; Compilation Complete 
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